12.[337]マクロ進行をコマンドボタンに表示する
[2000/01/31 K.Jさんからの質問]
オリジナル３３７のマクロのことでお聞きしたいんですが。 このマクロはマクロが
実行中に表示されると思うんですが 自分で作成したマクロの中で、保存、又は
上書きするマクロの所に、追加する形でコピーしたのですが。
マクロが実行されている間表示されず。サンプルと同じ時間しか表示できません。
調整は出来るもんなのでしょうか？ それとも、やり方がおかしいのでしょうか？
又、下記の文面がありましたが、マクロ名はこの式のどの部分に入れればよいの
でしょうか？。よろしくお願いします。
どうも説明が不足していたようで申し訳ありますん。「337」のサンプルは
（｢333｣も同様）、"For i=" の変数"i"の進行を表示するものです。したがって
保存、又は上書マクロの進行は表示できますん。実際のマクロを下記のように
入れれば進捗が表示されます。
cend = 1500 '(最終値：1500はデバック用)
'-----------------------------------------------------
'デバッグ用タイミング（実際はここに実行マクロを入れる） |
For j = 1 To 5000: Next ' |
'-----------------------------------------------------
上記は実際のマクロは無く表示を遅くするためタイミングを入れただけ。
下記は50行までに、1〜99のランダム数字を入れセルに色付けするマクロ。
cend = 50 '(最終値：50はデバック用)
'-----------------------------------------------------
'実際はここに実行マクロを入れる
'（実際のマクロとは、変数"i"を使用し処理するマクロの事)
'例：
For j = 1 To 26
Cells(i, j) = Int((99 - 1 + 1) * Rnd + 1)
Cells(i, j).Interior.ColorIndex = Cells(i, j) Mod 10
Next
'-----------------------------------------------------
上記のマクロを実行すると、下図となる。
13.[019]フォルダ名とファイル名を取得する
[2000/02/10 I.Sさんからの質問]
突然ですが、初めて、メールさせていただきます。
本題ですが、５００連発に掲載されていた。
「フォルダ名とファイル名を取得する」で、コピー、移動、削除、
名前の変更をする場合のプログラムを教えていただけないでしょうか。
そういうプログラムが存在するのなら、送っていただきたいのですが、
よろしいでしょうか？よろしくお願いします。
私のHPのトップペ−ジに「KIcopy2000」と言う項目がありますが、
そこからジャンプすると、コピー、移動、削除、名前の変更が出来る
サンプルがあり、ダウンロ−ド出来ます。
かなり便利なソフト(マクロ)で私自身よく使用しています。そのうち
シェアウエアにしようと思っているので無料で使用したい方は早めに
ダウンロ−ドして下さい。なお、このサンプルに関する意見・要望は
一度もきていないが、もし何かあれば連絡して頂ければ可能な限り
折込みバ−ジョンアップします。
14.[294]Ａ列とＢ列を比較する
[2000/02/25 M.Kさんからの質問]
初めまして、５００連発を購入したものですが、１つ質問があります。
２９４番のＡ列とＢ列の比較を利用して、同ブック内別シートと比較し
ようとしました。しかし、戻り値が全て『０』になります。
良い解決方法があったら教えて下さい。よろしくお願い致します。
自分の担当分ではないが質問が来たので返答します。ただし５００連発の
２９４番はワ−クシ−ト関数を使用しているようですが、自分の出した
マクロでないので内容を確認していません。私のHPの１４−３１項にも
類似品がるので、それを少し変えFindメソッドで書きました。
・Sheet1のA列デ−タをキ−ワ−ドに
・Sheet2のA列に同じデ−タがあれば
・Sheet2のC列へその内容を貼り付ける
・なお、同じデ−タが無い場合はその内容をE列へ貼り付けました。
Sub find()
Dim actv As Object
Dim i As Integer, endr1 As Integer, endr2 As Integer
Dim keym As String
Application.ScreenUpdating = False
Sheets("Sheet1").Select
Selection.SpecialCells(xlCellTypeLastCell).Select
endr1 = ActiveCell.Row
Sheets("Sheet2").Select
Selection.SpecialCells(xlCellTypeLastCell).Select
endr2 = ActiveCell.Row
c1 = 1: c2 = 1
For i = 1 To endr1
Sheets("Sheet1").Select
keym = Cells(i, 1)
Sheets("Sheet2").Select
Set actv = Range(Cells(1, 1), Cells(endr2, 1)) _
.find(keym, , , xlWhole, xlByColumns, xlNext, False)
If actv Is Nothing Then
Cells(c2, 5) = keym
c2 = c2 + 1
Else
Cells(c1, 3) = keym
c1 = c1 + 1
End If
Next
End Sub
上記マクロで問題があれば再度メ−ルを下さい。
15.[444]指定したグラフのサイズを変更したい
[2001/01/10 K.Mさんからの質問]
初めまして、
「技術評論社」の「ExcelVBAマクロ500連発」を見ながら
ただ今Excelマクロの勉強中のものです。
グラフ関係のマクロに関して、ご質問をしてよろしいでしょうか。
自分のやりたいことは、埋込みグラフのサイズを変更したいのです。
ただし、１つのシート上に幾つか埋込みグラフがあり、マウスで
選択しているグラフ（１つずつ）のみのサイズが変更したいのです。
「435」のグラフ名の取得と「444」のグラフの大きさを指定する
を応用して、変更しようかと、いろいろ試したのですが、
私の知識では解決が出来ませんでした。
選択しているグラフ（ActiveChart）の名前が取得できれば
良いのではと考えたのですが(Excel2000)。
・下記マクロで実行できます。グラフ名はInStr(1, ggg1, "グ", 1)
でＯＫです。なお、本例の場合グラフを選択してからマクロMacro1()を
実行して下さい。
・Excel2000ではユーザーフォームから実行も可能です
やり方については、私のHPの27-1(3)[2]を参照のこと
またグラフ名指定にていては、サンプル2000の[17]も参考になります。
Sub Macro1()
' グラフ名
On Error Resume Next
ggg1 = ActiveChart.Name
ggg2 = Mid(ggg1, InStr(1, ggg1, "グ", 1))
If Err > 0 Then
MsgBox "グラフを選んでから実行して下さい"
On Error GoTo 0
Exit Sub
End If
On Error GoTo 0
'現在のサイズ
hei = ActiveSheet.ChartObjects(ggg2).Chart.ChartArea.Height
wid = ActiveSheet.ChartObjects(ggg2).Chart.ChartArea.Width
msg = "現在のサイズは、縦:" & hei & " 横幅:" & wid & "です" & Chr$(10) _
& " 拡大する倍率を入力して下さい"
bai = Application.InputBox(msg, "グラフを指定", "1", Type:=1)
If bai = "" Then
MsgBox "拡大倍率が力されていません"
Exit Sub
End If
'サイズ変更
ActiveSheet.ChartObjects(ggg2).Activate
ActiveChart.ChartArea.Select
ActiveSheet.Shapes(ggg2).ScaleWidth bai, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes(ggg2).ScaleHeight bai, msoFalse, msoScaleFromTopLeft
Range("A2").Select
End Sub
